home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 34.zip / BS1 part 34 / GFA basic training.adf / Sound / TONLEITER.LST < prev   
File List  |  1989-06-01  |  731b  |  31 lines
  1. ' Tonleiter
  2. @init
  3. @freqenz
  4. @spielen
  5. END
  6. '
  7. PROCEDURE init
  8.   DIM f%(6)
  9.   '
  10.   SOUND 880,1,0,0                ! (In den Versionen 3.02 bis 3.04
  11.   a$="GFASound"                  ! kann es vorkommen, daß die Priorität
  12.   IF FindTask(V:a$)<>0           ! des SoundTasks zu niedrig gesetzt ist.
  13.     ~SetTaskPri(FindTask(V:a$),0)! Mit diesem kleinem Kniff hört man den
  14.   ENDIF                          ! Sound während des Programmablaufs.)
  15. RETURN
  16. PROCEDURE freqenz
  17.   FOR i|=0 TO 6
  18.     READ f%(i|)
  19.   NEXT i|
  20.   DATA 1114,1250,1403,1487,1669,1873,2103
  21. RETURN
  22. PROCEDURE spielen
  23.   FOR i|=0 TO 12
  24.     READ fr|
  25.     READ da|
  26.     SOUND f%(fr|),da|,127,0
  27.   NEXT i|
  28.   DATA 0,12,1,12,2,12,3,12,4,12,5,12,6
  29.   DATA 12,5,12,4,12,3,12,2,12,1,12,0,12
  30. RETURN
  31.